1 P1$=""
2 DIMCL(15):DIMCL$(15):P$=P1$+"[144]TASTE .....  TASTE ....."
3 FORD=0TO15:READCL(D):READCL$(D):NEXT
10 FORA=0TO15
20 POKE53280,A:POKE53281,A
30 FORB=15TO0STEP-1:POKE646,B:PRINT"[147]    FARBEN: ";CL$(B);"  AUF: "CL$(A)
40 FORC=1TO10:PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]                    ":NEXT
43 FORC=1TO10:PRINT"ABCDEFGHIJKLMNOPQRS[146]TUVWXYZ123457890.,:@":NEXT
44 PRINTP1$;"[145]                                       "
45 PRINTP1$;"[145][195]-64:TEXT :  #";B;"  &   BKGD :  #";A
50 PRINTP$:POKE198,0:WAIT198,1
60 NEXTB,A
100 DATA0,SCHWARZ,1,WEISS,2,ROT,3,CYAN,4,PURPLE,5,GRUEN,6,BLAU,7,GELB
110 DATA8,ORANGE,9,BRAUN,10,HL.ROT,11,GRAU,12,MIT.GRAU,13,HL.GRUEN,14,HL.BLAU
120 DATA15,HL.GRAU